home *** CD-ROM | disk | FTP | other *** search
/ Publication 7 / Publication_07_1996_High-Tech_de_Side_B.d64 / text formatieren (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  729b  |  34 lines
  1. 10 dim b(40)
  2. 11 input"text ";t$
  3. 12 input"formatierung (1-4) ";f
  4. 13 rem
  5. 14 on f goto27,30,33
  6. 15 a=1:b(0)=0:forc=1tolen(t$)
  7. 16 ifmid$(t$,c,1)=" "thenb(a)=c:a=a+1
  8. 17 nextc:b(a)=len(t$)+1
  9. 18 ifa=1thenprintt$:goto11
  10. 19 d=(a+38-len(t$))/(a-1)
  11. 20 e=int((d-int(d))*(a-1)+.5)
  12. 21 forf=0toa-2
  13. 22 printmid$(t$,b(f)+1,b(f+1)-1-b(f));
  14. 23 printspc(d-(e>0));
  15. 24 e=e+1:nextf
  16. 25 printright$(t$,b(a)-b(a-1));:goto11
  17. 26 rem
  18. 27 printt$;:iflen(t$)<40thenprint
  19. 28 goto11
  20. 29 rem
  21. 30 printtab(20-len(t$)/2);t$;
  22. 31 iflen(t$)<40thenprint
  23. 32 goto11
  24. 33 printspc(40-len(t$));t$
  25. 34 goto11
  26. 35 rem
  27. 36 rem ********************************
  28. 37 rem *                              *
  29. 38 rem *      'centre your text'      *
  30. 39 rem *         written by           *
  31. 40 rem *     zeitgeist/h-t/willow     *
  32. 41 rem *                              *
  33. 42 rem ********************************
  34.